REPL in the first place

2|user=>

(ns intro (:require [shashurup.quf.ui :refer :all]))

nil

3|intro=>

(+ 1 2 3)

6

4|intro=>

(read-string (slurp "deps.edn"))

{

:mvn/repos

{

"jcenter"

{

:url"https://jcenter.bintray.com/"

…}

:deps

{

org.clojure/clojure

{

:mvn/version"1.11.3"

…}

ring/ring-core

{

:mvn/version"1.11.0"

…}

ring/ring-jetty-adapter

{

:mvn/version"1.9.1"

…}

ring/ring-defaults

{

:mvn/version"0.3.4"

…}

nrepl/nrepl

{

:mvn/version"1.1.1"

…}

compojure/compojure

{

:mvn/version"1.7.1"

…}

:paths

[

"src""resources""target""test"

…]

:aliases

…}

By now, there is nothing special here. Of course you may play with it and figure that parts of the datastructure can be collapsed. However that is not what I dreamt about. One of the ideas I wanted to play with was having structured data in shell piplines. Here is where the ideas cross - lisp is a natural choice to represent such kind of data. So I started with filesystem module.

A shell, a bit improved

7|intro=>

(require '[shashurup.quf.fs :as f])

nil

8|intro=>

(f/c "~/devel/quasi-una-fantasia")

"/home/georgy/devel/quasi-una-fantasia"

9|intro=>

(f/l :m "resources/public")

Size	Modified	Name
4K	May 5 12:01	css
602	Apr 30 17:18	fat.html
616	Apr 30 17:03	index.html
533	Apr 30 17:04	slim.html
151	Apr 25 2022	test.html

Hey, what has just happened? This doesn't look like a clojure data structure!

11|intro=>

(with-meta (f/l :m "resources/public") {})

Here they are - our clojure data structures.

13|intro=>

(meta (f/l :m "resources/public"))

{

:shashurup.quf/hint

[

:table:shashurup.quf.fs/file

[

:size:modified:name-ex

…]

…}

14|intro=>

(with-meta [:p "The magic is caused by the special metadata attached to our clojure data representing these files. " "Metadata activates custom client side code which may render data returned by a function in a special way. " "In this case we have specialized renderer for files. (See " [:a {:href "fs.cljs"} "fs.cljs"] " module for example). " "There are also some generic renderers such as " [:span.quf-keyword ":table"] " or " [:span.quf-keyword ":html"] ", check it out."] {:shashurup.quf/hint :html})

The magic is caused by the special metadata attached to our clojure data representing these files. Metadata activates custom client side code which may render data returned by a function in a special way. In this case we have specialized renderer for files. (See fs.cljs module for example). There are also some generic renderers such as :table or :html, check it out.

15|intro=>

(table [{:name "Giuseppe" :age 23} {:name "Василий" :age 42} {:name "Ὅμηρος" :age :undefined}])

Name	Age
Giuseppe	23
Василий	42
Ὅμηρος	:undefined

There are convenience functions such as table which add appropriate metadata

17|intro=>

(f/l :m "*.edn")

Size	Modified	Name
2.4K	May 1 09:08	deps.edn
521	Apr 29 14:03	dev.cljs.edn
583	May 1 07:30	fat.cljs.edn
1.2K	Feb 17 08:46	figwheel-main.edn
121	Apr 30 17:04	slim.cljs.edn
460	Jun 22 17:41	test.cljs.edn

18|intro=>

(f/f "*.clj")

	Name
	doc/doc.clj
	extra/src/shashurup/quf/theme.clj
	extra/src/shashurup/quf/data.clj
	extra/src/shashurup/quf/fs.clj
	extra/src/shashurup/quf/sh.clj
	extra/src/shashurup/quf/base16.clj
	extra/src/shashurup/quf/geo.clj
	extra/src/shashurup/quf/chart.clj
	extra/src/shashurup/quf/secrets.clj
	extra/src/shashurup/quf/db.clj
	src/shashurup/quf/ui.clj
	src/shashurup/quf/vars.clj
	src/shashurup/quf/response.clj
	src/shashurup/quf/srv.clj
	build.clj
	target/slim-jar/shashurup/quf/vars.clj
	target/slim-jar/shashurup/quf/response.clj
	target/slim-jar/shashurup/quf/srv.clj

19|intro=>

(f/l :m)

Size	Modified	Name
4K	Feb 4 09:10	base16
4K	May 9 10:58	doc
4K	Apr 29 13:23	extra
4K	Apr 29 13:27	resources
4K	Jun 22 17:35	src
4K	May 1 09:35	target
4K	Jun 22 17:36	test
2.4K	May 1 09:37	build.clj
2.4K	May 1 09:08	deps.edn
521	Apr 29 14:03	dev.cljs.edn
1.1K	May 9 12:38	dummy-auto-testing.js
583	May 1 07:30	fat.cljs.edn
1.2K	Feb 17 08:46	figwheel-main.edn
171	Apr 29 13:30	install-xterm.js.sh
25K	Mar 24 18:18	package-lock.json
89	Mar 23 17:53	package.json
5.1K	May 5 17:03	project.org
2.8K	May 1 09:15	README.md
121	Apr 30 17:04	slim.cljs.edn
460	Jun 22 17:41	test.cljs.edn
476	Jan 8 10:15	test.py

20|intro=>

$$s

[

"/home/georgy/devel/quasi-una-fantasia/package-lock.json""/home/georgy/devel/quasi-una-fantasia/package.json""/home/georgy/devel/quasi-una-fantasia/test.py"

…]

$$s is so called client side variable. It is evaluated before an expression is sent to backend for evaluation. $$s is for the nearest cell with checkboxes (they appear when you press Ctrl+m), $$s-all is for all checkboxes on the page etc.These variables are controlled by client side code and cannot be assigned.

22|intro=>

(f/r "package.json")

{

"dependencies"

{

"@cljs-oss/module-deps""^1.1.1"

"xterm""^5.1.0"

…}

This detects file type and parses it accordingly. XML and CSV are also supported.

24|intro=>

(f/c "~/wallpapers")

"/home/georgy/wallpapers"

25|intro=>

(f/l :c "autumn*.jpg")

autumn-trees-painting-wallpaper-1.jpg

autumn_forest_4k_2-2560x1440.jpg

autumn_park_scenery_5k-2560x1440.jpg

:c makes output to appear as a list of thumbnails. (Ctrl+m also works here)

27|intro=>

(f/v "20230220_154530.jpg")

Conventional shell

29|intro=>

(require '[shashurup.quf.sh :refer [! !>]])

nil

30|intro=>

(f/c "~/devel/quasi-una-fantasia")

"/home/georgy/devel/quasi-una-fantasia"

31|intro=>

(!> "cat dev.cljs.edn")

^{:watch-dirs ["test" "src" "extra/src"]
  :css-dirs ["resources/public/css"
             "extra/resources/public/css"]
  :auto-testing true}
{:modules {:core {:entries #{shashurup.quf.core}}
           :fs {:entries #{shashurup.quf.fs}}
           :chartjs {:entries #{shashurup.quf.chartjs}}
           :ol {:entries #{shashurup.quf.ol}}
           :terminal {:entries #{shashurup.quf.terminal}}
           :theme {:entries #{shashurup.quf.theme}}
           }
 :output-to "dummy.js"
 :externs ["xtermjs-externs.js"]
}

32|intro=>

(require '[clojure.string :as s])

nil

33|intro=>

(update-vals (->> (!> "pacman -Qg") (map #(s/split % #" ")) (group-by first)) #(map second %))

34|intro=>

(! "ls --color /etc")

acpi clightd docker group- issue libva.conf mkinitcpio.conf odbc.ini polkit-1 securetty sudo_logsrvd.conf vpl

adjtime cni dunst grub.d jack lightdm mkinitcpio.conf.d odbcinst.ini printcap security sysctl.d vpnc

ant.conf colord e2scrub.conf gshadow java17-openjdk locale.conf mkinitcpio.d openldap profile sensors3.conf systemd wgetrc

apparmor.d conf.d environment gshadow- java-openjdk locale.gen modprobe.d openmpi profile.d sensors.d teamviewer whois.conf

arch-release credstore ethertypes gtk-2.0 kernel localtime modules-load.d openpmix protocols services tigervnc wpa_supplicant

audisp credstore.encrypted fish gtk-3.0 keyutils login.defs mpd.conf openvpn prrte shadow tmpfiles.d X11

audit crypttab fonts healthd.conf krb5.conf logrotate.d mtab os-release pulse shadow- tpm2-tss xattr.conf

avahi cups fstab host.conf ld.so.cache lvm named.conf pacman.conf rc_keymaps shells trusted-key.key xdg

bash.bash_logout daxctl.conf.d fuse.conf hostname ld.so.conf machine-id nanorc pacman.d rc_maps.cfg skel ts.conf

bash.bashrc dbeaver gai.conf hosts ld.so.conf.d mailcap ndctl pam.d request-key.conf slsh.rc udev

bind.keys dbus-1 gemrc i3 libao.conf makepkg.conf ndctl.conf.d papersize request-key.d ssh udisks2

bindresvport.blacklist dconf geoclue i3status.conf libaudit.conf makepkg.conf.d netconfig paperspecs resolv.conf ssl ufw

binfmt.d debuginfod gimp ifplugd libblockdev man_db.conf netctl passwd resolv.conf.bak subgid UPower

bluetooth default gnutls ImageMagick-7 libinput mdadm.conf nginx passwd- rhashrc subuid vbox

ca-certificates depmod.d gprofng.rc initcpio libnl mime.types nix pinentry rpc sudo.conf vconsole.conf

cifs-utils dhcpcd.conf gpservice inputrc libpaper.d minidlna.conf nsswitch.conf pipewire rsyncd.conf sudoers vdpau_wrapper.cfg

clight dkms group iptables libreoffice mke2fs.conf ODBCDataSources pkcs11 sane.d sudoers.d vimrc

0

Escape sequences are handled via xterm.js. And, yes, you can run Vim here.

Databases

It was a bit hard to resist temptation to plug jdbc infrastructure

38|intro=>

(require '[shashurup.quf.db :as db])

WARNING: random-uuid already refers to: #'clojure.core/random-uuid in namespace: monger.util, being replaced by: #'monger.util/random-uuid

nil

39|intro=>

(db/c "postgresql://postgres:123@localhost/postgres")

(

varshashurup.quf.db/*current*

…)

40|intro=>

(db/q "select id, name, country_id from capitals limit 10")

id	name	country_id
1	Sukhumi	68
2	Kabul	31
3	Mariehamn	142
4	Tirana	4
5	Algiers	2
7	Andorra la Vella	188
8	Luanda	6
9	The Valley	128
11	St. Johns	1
12	Buenos Aires	8

41|intro=>

(db/q "select id, name from countries where id < ?" 8)

id	name
1	Antigua and Barbuda
2	Algeria
3	Azerbaijan
4	Albania
5	Armenia
6	Angola
7	American Samoa

42|intro=>

(html [:h3 "Geo"])

Geo

43|intro=>

(require '[shashurup.quf.geo :as g])

nil

44|intro=>

(db/q "select id, name from countries where name like 'W%'")

id	name
219	Wallis and Futuna Islands
237	Western Sahara

45|intro=>

(g/v (db/q "select geom, name, id from countries where name like 'Po%'"))

Charts

47|intro=>

(require '[shashurup.quf.chart :as chart])

nil

48|intro=>

(chart/histogram (repeatedly 100 #(rand-int 100)))

Dessert

50|intro=>

(require '[shashurup.quf.theme :as theme])

nil

51|intro=>

(theme/ls "gruv")